﻿Imports System.Data
Imports System.Data.SqlClient
Imports Entidad
Imports Datos

Public Class AgenciaNegocio

    Dim dao As New AgenciaDatos

    Sub registrarAgenciaTransporte(ByVal agencia As AgenciaTransporte)
        dao.registrarAgenciaTransporte(agencia)
    End Sub

    Sub actualizarAgenciaTransporte(ByVal agencia As AgenciaTransporte)
        dao.actualizarAgenciaTransporte(agencia)
    End Sub

    Sub registrarClienteAgenciaSucursal(codCliente As String, codSucursal As String)
        dao.registrarClienteAgenciaSucursal(codCliente, codSucursal)
    End Sub

    Function obtenerSucursalesAgencia(codAgencia As String, flag As String) As DataSet
        Return dao.obtenerSucursalesAgencia(codAgencia, flag)
    End Function

    Sub registrarAgenciaTransporteSucursal(ByVal agencia As AgenciaTransporteSucursal)
        dao.registrarAgenciaTransporteSucursal(agencia)
    End Sub

    Sub actualizarAgenciaTransporteSucursal(ByVal agencia As AgenciaTransporteSucursal)
        dao.actualizarAgenciaTransporteSucursal(agencia)
    End Sub

    Function verificarExistenciaAgenciaTransporte(codAgencia As String) As Boolean
        Return dao.verificarExistenciaAgenciaTransporte(codAgencia)
    End Function

    Function verificarExistenciaAgenciaTransporteSucursal(codAgencia As String, codigo As String) As Boolean
        Return dao.verificarExistenciaAgenciaTransporteSucursal(codAgencia, codigo)
    End Function

    Function obtenerTodoAgencias() As DataSet
        Return dao.obtenerTodoAgencia()
    End Function

    Function verificarExistenciaRuc(rucN As String, rucA As String) As Boolean
        Return dao.verificarExistenciaRuc(rucN, rucA)
    End Function

    Sub registrarDestinos(codSucursal As Integer, codProvincia As String, codDistrito As String)
        dao.registrarDestinos(codSucursal, codProvincia, codDistrito)
    End Sub

    Function listarDestinosSucursal(codSucursal As String) As DataSet
        Return dao.listarDestinosSucursal(codSucursal)
    End Function

    Sub eliminarDestinoSucursal(codATSD As String)
        dao.eliminarDestinoSucursal(codATSD)
    End Sub

End Class
